Aplicaţie realizată pentru Sistemul 
informaţional al clienţilor 


1. Formul Clienti 


În acest form se pot actualiza clientii.Actualizarea presupune 
adăugarea de noi clienti, modificarea unor date cu privire la clientii 
existenti, stergerea unor clienti care, diverse motive, nu mai prezinta 
interes pentru unitate. 


Proiectarea formularului Clienti 
1. Definirea scenariilor şi a sarcinilor de lucru al 
utilizatorilor 


Scenariul 1 
Utilizatorul doreşte să adauge un client nou 
Completarea datelor aferente noului client se refera 
la:denumirea clientului, codul clientului, codul fiscal al acestuia, 
adresa, telefonul, e-mail-ul, codul postal. 
Scenariul 2 
Utilizatorul doreşte să şteargă un client 
Sarcinile de lucru sunt următoarele: 
> Poziționarea pe clientul pe care dorim să-l ştergem 
> Confirmarea ştergerii unui client 
Scenariul 3 
Utilizatorul doreşte să modifice datele despre un client 
Sarcinile de lucru sunt următoarele: 
> Poziționarea pe clientul pentru care dorim să-i schimbăm 
datele 
> Modificarea datelor vechi cu cele noi 
> Confirmarea modificării 
Scenariul 4 
Utilizatorul doreşte să vizualizeze clienți 
Sarcinile de lucru sunt următoarele: 
> Va termina cu operaţiile de adăugare, modificare sau 
ştergere 
> Apasand butonul de la comboClienti va obtine o lista a 
clientilor existenti 
2.ldentificarea şi definirea obiectelor şi 


acţiunilor formularului. 

a) Dimensiune standard(800x600); 

b) Surselor de date necesare funcţionării formului. S-a 
folosit Remote view-ul vClienti construit pe baza datelor 
din tabela Clienti sia bazei de date Oracle 


c) Câmpurile denumirea si codul clientilor vor fi afişate 
într-un combo box, respectiv text box. 
d) Sincronizarea datelor se fac în funcţie de denumirea 


clientului 


e) Butoanele care asigură funcţionare formului sint: 
„Adauga”, „Modifica”, „Sterge”, „Validare”, „Anulare”. 
f) Comportamentul diverselor obiecte de pe form: 

i. Butoanele „Validare”, „Anulare” vor fi 
enabled până la adaugarea unui nou client, 
sau modificarea unui nou client. Butonul 
„lesire” va determina inchiderea formului. 


g) Rafinarea formului: 


a.adaugarea unor sume totale(vinzarile 


si incasarile specifice fiecarui client in parte); 


(fotol A) 


Semnificatia obiectelor de pe formular: 


Obiect Tip Atribut Observatii 
in combo se afiseaza denumirea 
clientului.Este de tip downCombo 
cboClient DropDownCombo cclienti.dencl pentru a nu se putea introduse noi 
elemente 
in lista 
txtcodclient TextBox vclienti.codcl Codul clientului 
txtdenumire TextBox vclienti.denumire Denumirea clientului 
txtcodfiscal TextBox vclienti.codfisc Codul fiscal aferent clientului 
txtSoldiInitial TextBox vclienti.si Soldul initial al clientului 
txtAdresa TextBox vclienti.adresa Adresa clientului 
txtEmail TextBox vclienti.Email E-mail-ul clientului 
txtTelefon TextBox vclienti.telefon Telefonul clientului 


cboLocalitate | Drop DownCombo 


cLocalitate.loc 


Localitatea din care face parte clientul 
repectiv. Este de tip downCombo 
pentru a nu se putea introduse noi 
elemente 

in lista 


Adauga un nou client in vClienti.Acest 


cmdAdauga Button - rand trebuie sa ajunga si in tabela 
clienti din oracle 

cmdModifica Button - Modifica un client din vCilienti. 

cmdSterge Button - Sterge un client din vClienti 

cmdValidare Button B Incheie o tranzactie inceputa 
(adaugare sau modificare) 

cmdAnulare Button - Anuleaza o tranzactie inceputa 


(de modificare sau stergere) 

cmdprimul Button _ Pozitioneaza inregistrarile pe primul 
client 

cmdinapoi Button T Pozitioneaza inregistrarile cu un 
client inapoi 

émdinainte Button E Pozitioneaza inregistrarile cu un 
client inainte 

duet Button _ Pozitioneaza inregistrarile pe 
ultimul client 

zmdiesiře Button _ La evenimentul click se iese din 
formular 


Programul pentru crearea remote view-ului: 


include foxpro.h 

create SQL view vclienti connection connect; 

as select * from clienti 
=dbsetprop('vClienti','View','Tables','Clienti') 
=dbsetprop('vClienti.codcl','field','keyfield',.T.) 
=dbsetprop('vClienti.codcl','field','Updatable',.T.) 


=dbsetprop('vClienti.Dencl','field','updatable',.T.) 
=dbsetprop('vClienti.Codfisc','field','updatable',..) 
=dbsetprop('vClienti.Si','field','updatable',.T.) 
=dbsetprop('vClienti.Adresa', 'field','updatable',.T.) 
=dbsetprop('vClienti.Telefon', 'field','updatable',.T.) 
=dbsetprop('vClienti.E mail", 'field','updatable',.T.) 
=dbsetprop('vClienti.Codpost','field','updatable',.T.) 
=dbsetprop('vClienti.Vanzari', 'field','updatable',.T.) 
=dbsetprop('vClienti.Incasari','field','updatable',.T.) 


Ş 

=dbsetprop('vClienti','View','UpdateType',DB UPDATE) 
=dbsetprop('vClienti','View',WhereType',DB KEYANDMODIFIED) 
=dbsetprop('vClienti','View','SendUpdates',.T.) 


2 . Formul Comenzi 


În acest form se pot actualiza comenzile.Actualizarea 
presupune adăugarea de noi comenzi precum si a liniilor sale 
specifice, stergerea unor comenzi si a liniilor din comenzi. 

Proiectarea formularului Comenzi 

1. Definirea scenariilor şi a sarcinilor de lucru al 
utilizatorilor. 


Scenariul 1 
Utilizatorul doreşte să adauge o comanda noua 
Completarea datelor aferente noii comenzi privesc:data 
comenzii,numele clientului care face comanda, eventuale observatii 
legate de comanda respectiva. 
Scenariul 2 
Utilizatorul doreşte să şteargă o comanda 
Sarcinile de lucru sunt următoarele: 
> Poziționarea pe comanda pe care dorim să o ştergem. 
> Confirmarea ştergerii unei comenzi. 
Scenariul 3 
Utilizatorul doreşte să vizualizeze comenzile. 
Sarcinile de lucru sunt următoarele: 
> Va termina cu operaţiile de adăugare sau ştergere. 
> Apasand butonul de la comboComenzi va obtine o lista a 
comenzilor existente. 
2.ldentificarea şi definirea obiectelor şi 
acţiunilor formularului. 
a). Dimensiune standard(800x600); 
b). Surselor de date necesare funcţionării formului. S-au 
folosit Remote view-urile vcom(pentru atributele folosite in 
tabela comenzi) si vcoml(pentru cele din liniicomenzi) 
construite pe baza datelor din tabelele Comenzi, 
Liniicomenzi sia bazei de date Oracle 
c). Câmpul ce constituie cheia primara (id com) va fi afişat 
într-un combo box, utilizatorul vizualizind codul 
comenzilor. 
d). Sincronizarea datelor se fac în funcţie de codul 
comenzilor 
e). Butoanele care asigură funcţionare formului sint: 
„Adauga comanda”, „Sterge comanda”, „Adauga linie”, 
„Sterge linie”, „lesire”. 
h) Rafinarea formului: 
a.afisarea unor calcule realizate prin 
declansatoare(triggere): valoarea comenzii cerute si a celei livrate 
specifice fiecarei comenzi in parte); 


(foto2) 


Semnificatia obiectelor de pe formular: 


Obiect Tip Atribut Observatii 
in combo se afiseaza numarul 
comenzilor.Este de tip 
i wnCom 
cboComenzi DropDownCombo ccom.idcom downcombo , 
pentru a nu se putea introduse 
noi elemente 
in lista 
txtidcom TextBox vcomenzi.idcom Codul comenzii 
txtdata TextBox vcomenzi.datacom Data efectuarii comenzii 
cboClient TextBox cclient.dencl Denumirea clientului 
txtObservatii TextBox vcomenzi.obs Observatii legate de comanda 
i. Valoarea comenzii cerute de 
txtValcomcer TextBox vcomenzi.valcomce i 
r client 
txtValcomliv TextBox vcomenzi.valcomliyV2l0area comenzii livrate 
clientului 
Adauga o noua comanda in 
cmdAdaugac Button l vComenzi.Acest rand trebuie sa 
om ajunga si in tabela 
comenzi din oracle 
cmdStergeco 
i g Button - Sterge o comanda 
Detaliaza fiecare comanda in 
parte, afisind codul comenzii, 
grdliniicom Grid - liniile , denumirea produsului, 
cantitatea ceruta, livrata si 
pretul 
coloana idcom x vcoml.idcom ‘Afiseaza codul comenzilor 
coloana - vcoml.nrliniec Afiseaza liniile comenzilor 
nrliniec : 
coloana ; 

- vcoml. r Afi za pr | comandat 
produs coml.codp seaza produsul comanda 
coloana Afiseaza cantitatea ceruta de 

- vcoml.cantcer $ 
cantcer SII CAE CE client 
coloana Afiseaza cantitatea livrata 

A - vcoml.cantliv . ; 
cantlivr Somiea clientului 
cmdprimul Button _ Pozitioneaza inregistrarile pe 
prima comanda 
cmdinapoi Button _ Pozitioneaza inregistrarile cu O 
comanda inapoi 
APEI: Pozitioneaza inregistraril 
cmdinainte Button - SZIUONSAZA INTEJISTARIE CUO 
comanda inainte 
cmdultimul Button i Pozitioneaza inregistrarile pe 
ultima comanda 
emaiëesife Button _ La evenimentul click se iese din 


formular 


Programul pentru crearea remote view-urilor: 


1.Remote view vcomenzi: 


include foxpro.h 

CREATE SQL VIEW vcomenzi connection connectl; 

as select idcom,datacom,to_char(codcl) as 
codcl,valcomcer,valcomliv,obs from comenzi 


=DBSETPROP('vcomenzi','View', Tables','comenzi') 
=dbsetprop('vcomenzi.idcom', 'field','keyfield',.t.) 


=dbsetprop('vcomenzi.idcom', 'field','updatable',.t.) 
=dbsetprop('vcomenzi.datacom', field','updatable',.t.) 
=dbsetprop('vcomenzi.valcomcer','field','updatable',.t.) 
=dbsetprop('vcomenzi.valcomliv','field','updatable',.t.) 
=dbsetprop('vcomenzi.obs','field','updatable',.t.) 


=DBSETPROP('vcomenzi','View','UpdateType',DB UPDATE) 
=DBSETPROP('vcomenzi','View','WhereType',DB KEY) 
=DBSETPROP('vcomenzi','View','SendUpdates',.t.) 


2.Remote view vcoml: 


include foxpro.h 
public idcom._ 


idcom =1001 
Create Sql View Vcoml connection connecti ; 
as select idcom,nrliniec, TO _ CHAR(codpr) as 


codpr,cantcer,cantlivr,pu from liniicom where idcom=?idcom_ 


=DBSETPROP('Vcoml','view','tables','liniicom') 


=DBSETPROP('Vcoml.idcom', 'field','keyfield',.T.) 
=DBSETPROP('Vcoml.nrliniec', 'field','keyfield',.T.) 


=DBSETPROP('Vcoml.idcom', 'field','updatable',.T.) 
DBSETPROP('Vcoml.nrliniec', 'field','updatable',.T.) 
DBSETPROP('Vcoml.cantcer','field','updatable',.T.) 
=DBSETPROP('Vcoml.cantlivr', field','updatable',.T.) 
=DBSETPROP('Vcoml.pu', 'field','updatable',.T.) 


=DBSETPROP('Vcoml','View','updatetype',DB UPDATE) 
=DBSETPROP('Vcoml','View','WhereType',DB KEY) 
=DBSETPROP('Vcoml', 'view', 'SendUpdates', .T.) 


